home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMIBEST1.ADF / AmigaBasicStuff / BasicGadgets / GdgtEx1 (.txt) < prev    next >
AmigaBASIC Source Code  |  1987-07-22  |  212b  |  11 lines
  1. ' Gadgets Example Number 1
  2. '
  3. LINE(36,20)-(92,36),1,bf
  4. LINE(36,20)-(92,36),3,b
  5. LINE(38,22)-(90,34),3,b
  6. LINE(93,21)-(93,37),2
  7. LINE(93,37)-(37,37),2
  8. COLOR 3,1:LOCATE 4,6:PRINT"Gadget"
  9. COLOR 1,0
  10.  
  11.